home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1996 June / 64er_Magazin_96-06_1996_Markt__Technik_de_Side_B.d64 / su-do-dos-gen 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  72 lines
  1. 0 rem"cbm dos c0-df***"
  2. 1 rem"cbm dos+pp->inpu"
  3. 2 rem"sudo-dos a0-bf 3"
  4. 3 rem"sudo-dos e0-ff 3"
  5. 4 rem"sudo3 dos 24p   "
  6. 5 rem"sd3 dos 28p00-7f"
  7. 6 rem"sd3 dos 28p80-ff"
  8. 7 rem"0123456789abcdef"
  9. 1000 rem a=accu x=x y=y
  10. 1010 poke52,32:poke56,32:clr
  11. 1020 poke157,128
  12. 1030 print"[147]
  13. 1040 [153]"fuer welchen floppy typ (1/2)
  14. 1050 print"1  1541   alt   24pin rom
  15. 1060 [153]"2  1541/2 /c    28pin rom
  16. 1070 geta$:ifa$<>"1"anda$<>"2"then1070
  17. 1080 ifa$="2"then1180
  18. 1090 poke198,0:input"legen sie die quelldisk ein u. druecken sie return";a$
  19. 1100 y=32:ln=31:hn=8:gosub1350
  20. 1110 y=64:ln=31:hn=8:gosub1350
  21. 1120 y=96:ln=55:hn=8:gosub1350
  22. 1130 y=128:ln=79:hn=8:gosub1350
  23. 1140 ln=103
  24. 1150 y=160
  25. 1160 gosub1470
  26. 1170 end:rem----------------------------
  27. 1180 poke198,0:input"legen sie die quelldisk ein u. druecken sie return";a$
  28. 1190 y=32:ln=7:hn=8:gosub1350
  29. 1200 y=64:ln=31:hn=8:gosub1350
  30. 1210 y=96:ln=7:hn=8:gosub1350
  31. 1220 y=128:ln=31:hn=8:gosub1350
  32. 1230 ln=127
  33. 1240 y=160
  34. 1250 gosub1470:rem 00-7f
  35. 1260 poke198,0:input"legen sie die quelldisk ein u. druecken sie return";a$
  36. 1270 y=32:ln=7:hn=8:gosub1350
  37. 1280 y=64:ln=55:hn=8:gosub1350
  38. 1290 y=96:ln=7:hn=8:gosub1350
  39. 1300 y=128:ln=79:hn=8:gosub1350
  40. 1310 ln=151
  41. 1320 y=160
  42. 1330 gosub1470:rem 80-ff
  43. 1340 end:rem----------------------------
  44. 1350 rem load -------------------------
  45. 1360 poke780,0:rem =load
  46. 1370 poke781,0:rem start high
  47. 1380 poke782,y:rem start low
  48. 1390 poke186,8:rem geraeteadresse
  49. 1400 poke185,0:rem absolut laden
  50. 1410 poke183,16:rem laenge d.namens
  51. 1420 poke187,ln:rem low anfang name
  52. 1430 poke188,hn:rem high anfang name
  53. 1440 sys65493:rem load
  54. 1450 open15,8,15:input#15,a,b$,c,d:close15:print:printa;b$;c;d:ifa>0thenend
  55. 1460 return
  56. 1470 print
  57. 1480 poke198,0:input"legen sie die zieldisk ein und druecken sie return";a$
  58. 1490 open15,8,15,"i":close15
  59. 1500 hn=8
  60. 1510 poke780,252:rem zeiger auf start
  61. 1520 poke781,0:rem low ende
  62. 1530 poke782,y:rem high ende
  63. 1540 poke252,0  :rem start low
  64. 1550 poke253,32 :rem start high
  65. 1560 poke186,8:rem geraeteadresse
  66. 1570 poke183,16:rem laenge d.namens
  67. 1580 poke187,ln:rem low anfang name
  68. 1590 poke188,hn:rem high anfang name
  69. 1600 sys65496:rem save
  70. 1610 open15,8,15:input#15,a,b$,c,d:close15:print:printa;b$;c;d:ifa>0thenend
  71. 1620 return
  72.